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IDENTIFICATION: Card Binary to BCD 

AUTHOR: J. P. Dixon, SEL 

ACCEPTED: 6 June 1967 

PURPOSE: To translate card binary input to IBM BCD code. 

COMPUTER 

CONFIGURATION: SEL 810A with card reader 

SUBROUTINES 

REQUIRED: None 

STORAGE: 110 octal locations 

TIMING: 2 3 cycles + approximately 200N - where N is number 

of locations to be translated. 

USE: Calling sequence: 

LAA X 

CALL CDBCD 
DAC BUF+N, 1 

DATA -N 

where BUF is address of first location of buffer. 

N is number of locations to be translated. 


METHOD: 


If X is zero, the 6 bit BCD code is stored in bits 10-15; 
if X = 0, they are stored in bits 0-5. 
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0001 00000 00000000 * 

000200000 00000000 » CATAL0G N0. _300014A 

o0o3 doood oooodooo ************************************************************************* 

0004 00000 00000000 * 6 JUNE 1967 

oooSooodo odddddod * 

0006 00000 00000000 * PROGRAMMER J, P. DIX0N 

000700000 00000000 * 

0008 JJ0000 00000000 * CALLING SEQUENCE 

0009 0000000000000 * CALL COBCD 


0010 0000 0 00000000 * DAC BUF+N, 1. _ 

0011 00000 00000000 *DATA-N 

0012 00000 00000000 * 

0013 00000 00000000 * N IS NUMBER OF W0ROS T0 BE TRANSLATED 

0014 00000 00000000 * _ _ _ 

0015 00000 00000000 * THIS R0UTINE C0NVERTS BINARY CARD INPUT 

003.6 0000 0 000 00000 * T 0 IBM/BCD FAR USE IN ASSEMBLER AND OTHER 

0017 00000 00000000 * IBM/BCD CARD IMAGE ORIENTED PROGRAMS. 

0018 00000 00000000 ************************************************************************ 


0019 00000 00000000 * IF A IS ZERO 0N ENTRY ST0RE IN BITS 10-15 
0020 000 0 0 QOOOOOOO * IF A IS NON ZER0 0N ENTRY STORE JN BITS 0-5 


0021 00000 00000000 REL 

0022 00000 50000000 NAME CD8CD,CRDC 

0022 00000 oooodooo 

0022 00000 00602002 

0022 00000 00602040 

0023 00000 00000000 CROC *** ** 

0024 00001 02100110 STRT LBA N0P 


0025 

00002 

00000022 

SAZ 


0026 

00003 

02100107 

LBA 

LS10 

0027 

0OOO4 

04100070 

STB 

SWL 

0028 

00005 

01300000 

LAA* 

CRDC 

0029 

00006 

03100103 

STA 

BUF 

0030 

00007 

14100000 

IMS 

CRDC 

0031 

00010 

02300000 

LBA* 

CRDC 

0032 

0OO11 

04100105 

STB 

CLCT 

0033 

00012 

14100000 

IMS 

CRDC 

0034 

00013 

00000003 AGN 

CLA 


0035 

00014 

03100104 

STA 

K0LM 

0036 

00015 

01300103 

laa* 

BUF 


BINARY T0 BCD CARD CONVERSION ROUTINE 


DAC BUF+N,1 

COLUMN COUNTER 
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0037 

00016 

00000022 


SAZ 


IS THIS A BLANK C0LUMN 

0038 

00017 

11100022 


BRU 

* + 3 


0039 

00020 

01000020 


laa 

= *20 


0040 

00021 

11100067 


BRU 

ST0R 

ST8RE “BCD BLANK CODE 

0041 

00022 

15006000 


CMA 

= • 6000 

IS THIS A QUESTION MARK 

004? 

00023 

11100026 


BRU 

* ♦ 3 . 

' N0 

0043 

00024 

00000003 


CLA 


YES 

0044 

00025 

11100067 


BRU 

ST0R 

ST0RE QUESTION MARK CODE 

0045 

00026 

15003000 


CMA 

=•3000 

IS THIS AN EXCLAMATION MARK 

0046 

00027 

11100031 


BRU 

* + 2 

NO 

0047 

00030 

11100077 


BRU 

EXPT 

YES 

0048 

00031 

15001000 


CMA 

= * 1000 

0 PUNCH 

■ 0049 

00032 

11100034 


BRU 

* + 2 

NO 

0050 

00033 

11100101 


BRU 

ZER0 

YES 

0051 

00034 

00000416 


LSL 

4 


0052 

00035 

00000023 


SAN 


12 PUNCH 

0053 

00036 

11100041 


BRU 

* + 3 

NO 

0054 

00037 

02000060 


LBA 

= *60 

YES 

0055 

00040 

04100104 


STB 

K0LM 

12 PUNCH CODE 

0056 

00041 

00000116 


LSL 

1 


0057 

00042 

00000023 


SAN 


11 PUNCH 

0058 

00045 

11100046 


BRU 

* + 3 

NO ¬ 

0059 

00044 

02000040 


LBA 

= *40 

YES 

O'O&O 

00045 

04100104 


STB 

K0LM 

11 PUNCH “CODE 

0061 

00046 

00000116 


LSL. 

1 


0062 

00047 

00000023 


SAN 


0 PUNCH 

0063 

00050 

11100053 


BRU 

* + 3 

NO 

0064 

00051 

02000020 


LBA 

=»2 0 

YES 

0065 

00052 

04100104 


STB 

K0LM 

0 PUNCH CODE 

0066 

00053 

02077767 


LBA 

= -9 


0067 

00054 

00000116 

SHFT 

LSL 

1 


0068 

00055 

04100106 


STB 

RCNT 

ROW COUNTER 

0069 

00056 

00000023 


SAN 


PUNCH THIS COLUMN 

0070 

00057 

11100064 


BRU 

I NEB 

NO 

0071 

00060 

16000012 


AMB 

= 10 

COMPUTE NO. OF PUNCH 

0072 

00061 

16100104 


AMB 

KOLM 


0073 

00062 

04100104 


STB 

K0LM 

ASSEMBLE BCD CHARACTER 

0074 

00063 

02100106 


LBA 

RCNT 


0075 

00064 

00000026 

I NC8 

IBS 


ALL ROWS CHECKED 

0076 

00065 

11100054 


BRU 

SHFT 

CHECK NEXT ROW 
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007? 

00066 

01100104 


LAA 

K0LM 



0078 

00067 

02100105 

ST0R 

LBA 

CLCT 



0079 

00070 

00000033 

SWL 

N0P 



N0f» 0R LSL 210 

Ooao 

00071 

03300103 


STA* 

BUF 



0081 

00072 

00000026 


IBS 




0082 

00073 

11100075 


BRU 

*♦2 



0083 

00074 

11300000 


BRU* 

CROC 



0084 

00075 

04100105 


STB 

CLCT 



0085 

00076 

11100013 


BRU 

AON 



0086 

00077 

01000052 

EXPT 

LAA 

= * 52 


EXCLAMATION PT 

008? 

00100 

11100067 


BRU 

ST0R 


STORE CODE 

0088 

00101 

01000012 

ana 

LAA 

= '12 


0 CODE 

0089 

00102 

11100067 


BRU 

ST0R 



0090 

00103 

00000001 

BUF 

8SS 

1 




0091 Q0104 00000000 K0LM *•* ** BCD CHA R. A SSEMBLY BUFFER 

0092 00105 00000000 CLCT *** *# COLUMN COUNTER 

0093 00106 00000 000 RC NT ♦«» ** _ _ RO W COUN TER _ 

0094 00107 00001216 LS10 LSL 10 

0095 OOllb 000 00 033 NOP N0P 

0096 00111 70400000 END 
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AGN 

0034 

0085 






BUF 

0090 

0029 

0036 

0080 




CLCT 

0092 

0032 

0078 

0084 




CRD* 

0023 

0028 

0030 

0031 

0033 

0083 


EXIT 

0086 

0047 






INC* 

0075 

0070 






K0LM 

0091 

0035 

0055 

0060 

0065 

0072 0073 

0077 

L810 

0094 

0026 






N0§ 

0095 

0024 






RCNT 

0093 

0068 

0074 





SHFT 

0067 

0076 






STIR 

0078 

0040 

0044 

0087 

0089 



ST RT 

0024 







SflL 

0079 

0027 






Z6R0 

0088 

0050 














